-- background: 2765 from stack: in.5
-- bmap block id: 4019
-- flags: 0000
-- background id: 0
-- name: almanac
----- HyperTalk script -----
on openCard
  global force
  ST
  UT
  set numberFormat to "0.###"
  put "Julian Date = " & the seconds/86400 + 2416480.5 + DSTcheck()/24 into field "JD"
  if the number of this card is 7 then
    put getJDdate() &&"(JT)" into field "date"
  else
    put getDate() into field "date"
  end if
  if the shiftKey is up then
    put the short name of this card into field 7
    if the number of this card >1 and number of this card<10 then
      calc (the number of words of field 3),force
    end if
  end if
end openCard

on effect
  visual wipe up very fast
end effect

on openBackground
  global val
  set hilite of bkgnd button "DST" to val
end openBackground



-- part 1 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=42 top=140 right=162 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DST
----- HyperTalk script -----
on mouseUp
  set hilite of me to not hilite of me
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=432 top=50 right=92 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go home
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=432 top=91 right=129 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 16732 / 16732
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect wipe left fast
  push card
  go card "fx"
end mouseUp




-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=190 top=283 right=301 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: UT


-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=38 top=283 right=301 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ST


-- part 8 (field)
-- low flags: 80
-- high flags: 4001
-- rect: left=0 top=174 right=239 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: RA Cheb


-- part 9 (field)
-- low flags: 80
-- high flags: 4001
-- rect: left=0 top=266 right=333 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: dec Cheb


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=181 top=80 right=146 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mars RA


-- part 13 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=181 top=149 right=183 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 14 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=44 top=87 right=112 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 75
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: 


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=50 right=83 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 100 / 100
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sun
----- HyperTalk script -----
on mouseUp
  effect
  go card "Sun"
end mouseUp




-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=82 right=115 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 101 / 101
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Mercury"
end mouseUp




-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=114 right=147 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 102 / 102
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Venus"
end mouseUp




-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=146 right=179 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 104 / 104
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Mars"
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=178 right=211 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 105 / 105
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Jupiter"
end mouseUp




-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=210 right=243 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 106 / 106
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Saturn"
end mouseUp




-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=401 top=242 right=274 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 107 / 107
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Uranus"
end mouseUp




-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=274 right=304 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 108 / 108
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Neptune"
end mouseUp




-- part 27 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=231 top=306 right=340 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 5472 / 5472
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go first card
end mouseUp



-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=62 top=25 right=43 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Date


-- part 31 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=266 top=25 right=44 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: JD


-- part 36 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=475 top=50 right=80 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  push card
  go first card of bkgnd "Info"
end mouseUp



-- part 37 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=303 top=53 right=79 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Rem